﻿Imports MySql.Data.MySqlClient
Public Class Changement_MDP

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("Le champ de l'ancien mot de passe est vide .", "Changement de mot de passe", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        If TextBox2.Text = "" Then
            MessageBox.Show("Le champ du nouveau mot de passe est vide .", "Changement de mot de passe", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        If TextBox3.Text = "" Then
            MessageBox.Show("Le champ de confirmation du nouveau mot de passe est vide .", "Changement de mot de passe", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        If Not TextBox2.Text = TextBox3.Text Then
            MessageBox.Show("Les deux mots de passes ne se corréspendent pas .", "Changement de mot de passe", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If
        If TextBox1.Text = Base.Password Then
            If Not TextBox1.Text = TextBox2.Text Then
                Dim RequeteSQL As String
                Dim objDataReader As MySqlDataReader
                RequeteSQL = "UPDATE Compte SET Password = '" + TextBox2.Text + "' Where ID = " + Base.ID.ToString + " ;"
                Form4.objCommand = New MySqlCommand(RequeteSQL, Form4.Connection)
                objDataReader = Form4.objCommand.ExecuteReader
                objDataReader.Close()

                MessageBox.Show("Votre mot de passe est changé avec succés !", "Inscription", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Me.Hide()
                Base.Password = TextBox2.Text
                Salaria.Show()
            Else
                MessageBox.Show("Votre nouveau mot de passe ne doit pas correspendre à votre mot de passe actuelle .", "Changement de mot de passe", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return
            End If
        Else
            MessageBox.Show("L'ancien mot de passe ne correspond pas à votre mot de passe actuelle .", "Changement de mot de passe", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

    End Sub

    Private Sub Changement_MDP_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Salaria.Show()
    End Sub
End Class